diff --git a/s/cp0.ss b/s/cp0.ss
index 0b0200d93c..c537959f80 100644
--- a/s/cp0.ss
+++ b/s/cp0.ss
@@ -858,7 +858,7 @@
       (lambda (obj)
         ; okay to copy obj if (eq? (faslin (faslout x)) x) => #t or (in the case of numbers and characters)
         ; the value of (eq? x x) is unspecified
-        (or (symbol? obj)
+        (or (and (symbol? obj) (not (uninterned-symbol? obj)))
             (number? obj)
             (char? obj)
             (boolean? obj)
diff --git a/s/cptypes.ss b/s/cptypes.ss
index cc46bfd0de..cf3a84b99c 100644
--- a/s/cptypes.ss
+++ b/s/cptypes.ss
@@ -317,7 +317,7 @@ Notes:
     (lambda (obj)
       ; okay to copy obj if (eq? (faslin (faslout x)) x) => #t or (in the case of numbers and characters)
       ; the value of (eq? x x) is unspecified
-      (or (symbol? obj)
+      (or (and (symbol? obj) (not (uninterned-symbol? obj)))
           (number? obj)
           (char? obj)
           (boolean? obj)