Index: /trunk/source/level-1/sysutils.lisp
===================================================================
--- /trunk/source/level-1/sysutils.lisp	(revision 15442)
+++ /trunk/source/level-1/sysutils.lisp	(revision 15443)
@@ -963,5 +963,5 @@
           (unless v
             (unless (eql new default)
-              (when (< major tablen)
+              (when (>= major tablen)
                 (let* ((newtab (make-array (the fixnum (1+ major)))))
                   (%copy-gvector-to-gvector table 0 newtab 0 tablen)