diff --git a/pcl/cmucl-documentation.lisp b/pcl/cmucl-documentation.lisp
index b13b6ef07d4d90dd0a5724fa4cd54be588f01cf3..44d2d30c78bf54c41f2ca43d773a3a2388fa6102 100644
--- a/pcl/cmucl-documentation.lisp
+++ b/pcl/cmucl-documentation.lisp
@@ -4,7 +4,7 @@
 ;;; the public domain, and is provided 'as is'.
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.12 2003/05/04 13:11:22 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.13 2003/07/20 13:55:11 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -43,7 +43,7 @@
 
 (defmethod (setf documentation) (new-value (x list) (doc-type (eql 'function)))
   (unless (valid-function-name-p x)
-    (error "Invalid function name ~s" x))
+    (simple-program-error "Invalid function name ~s" x))
   (if (eq 'setf (cadr x))
       (setf (info setf documentation (cadr x)) new-value)
       (setf (info function documentation x) new-value))
@@ -117,7 +117,7 @@
 
 (defmethod (setf documentation) (new-value (x symbol) (doc-type (eql 'structure)))
   (unless (eq (info type kind x) :instance)
-    (error "~@<~S is not the name of a structure type.~@:>" x))
+    (simple-program-error "~@<~S is not the name of a structure type.~@:>" x))
   (setf (info type documentation x) new-value))
 
 ;;; Variables.