Index: /trunk/ccl/level-1/l1-dcode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-dcode.lisp	(revision 282)
+++ /trunk/ccl/level-1/l1-dcode.lisp	(revision 283)
@@ -939,5 +939,5 @@
 (defun odd-keys-error (varg l) 
   (let ((gf (combined-method-gf (%svref varg 2))))
-    (error "Odd number of keyword args to ~s~%keyargs: ~s" gf l)))
+    (signal-program-error "Odd number of keyword args to ~s~%keyargs: ~s" gf l)))
 
 
@@ -948,5 +948,5 @@
          (*print-readably* t)
          (readable-keys (format nil "~s" keys)))
-    (error "Bad keyword ~s to ~s.~%keyargs: ~s~%allowable keys are ~a." key gf l readable-keys)))
+    (signal-program-error "Bad keyword ~s to ~s.~%keyargs: ~s~%allowable keys are ~a." key gf l readable-keys)))
 
 ; vector arg is (vector key-index keyvect combined-method) ; the next combined method