Index: /trunk/ccl/compiler/nx0.lisp
===================================================================
--- /trunk/ccl/compiler/nx0.lisp	(revision 5971)
+++ /trunk/ccl/compiler/nx0.lisp	(revision 5972)
@@ -1999,12 +1999,16 @@
        (when (eq sym 'the)
 	 (destructuring-bind (typespec thing) (cdr form)
-	   (multiple-value-bind (newform win) (nx-transform thing environment)
-	     (when win
-	       (setq changed t)
-	       (if (and (self-evaluating-p newform)
-			(typep newform typespec))
-		 (setq form newform)
-		 (setq form `(the ,typespec ,newform)))
-	       (go DONE)))))
+           (if (constantp thing)
+             (progn
+               (setq form thing form thing)
+               (go LOOP))
+             (multiple-value-bind (newform win) (nx-transform thing environment)
+               (when win
+                 (setq changed t)
+                 (if (and (self-evaluating-p newform)
+                          (typep newform typespec))
+                   (setq form newform)
+                   (setq form `(the ,typespec ,newform)))
+                 (go DONE))))))
        (when (nx-quoted-form-p form)
 	 (when (self-evaluating-p (%cadr form))