Index: /trunk/source/lib/pprint.lisp
===================================================================
--- /trunk/source/lib/pprint.lisp	(revision 13941)
+++ /trunk/source/lib/pprint.lisp	(revision 13942)
@@ -950,5 +950,5 @@
   (let ((ostream (xp-out-stream xp))
         (len (xp-buffer-ptr xp)))
-    (when (commit-hook *print-pprint-dispatch*)
+    (when (and *print-pprint-dispatch* (commit-hook *print-pprint-dispatch*))
       (funcall (commit-hook *print-pprint-dispatch*) xp len 0))
     (when ostream      
@@ -1002,5 +1002,5 @@
       (throw 'line-limit-abbreviation-exit T))
     (setf (xp-line-no xp)(%i+ 1 (xp-line-no xp)))
-    (when (commit-hook *print-pprint-dispatch*)
+    (when (and *print-pprint-dispatch* (commit-hook *print-pprint-dispatch*))
       (funcall (commit-hook *print-pprint-dispatch*) xp out-point prefix-end))
     (let ((bstream (xp-out-stream xp)))