diff --git a/src/cmp/cmppass2-top.lsp b/src/cmp/cmppass2-top.lsp
index e5ea55832..8ba0c8c4c 100644
--- a/src/cmp/cmppass2-top.lsp
+++ b/src/cmp/cmppass2-top.lsp
@@ -117,8 +117,7 @@
   (wt-nl-h "}")
   (wt-nl-h "#endif")
 
-  (when (and (listp *static-constants*)
-             (setf *static-constants* (nreverse *static-constants*)))
+  (unless (null *static-constants*)
     (wt-nl-h "/*")
     (wt-nl-h " * Statically defined constants")
     (wt-nl-h " */")