Index: /trunk/ccl/level-1/l1-aprims.lisp
===================================================================
--- /trunk/ccl/level-1/l1-aprims.lisp	(revision 6015)
+++ /trunk/ccl/level-1/l1-aprims.lisp	(revision 6016)
@@ -42,4 +42,5 @@
 
 (def-standard-initial-binding *package*)
+(def-standard-initial-binding *gensym-counter* 0)
 
 (defun %badarg (arg type)