--- /usr/share/common-lisp/source/cl-typesetting/graph.lisp.old	2005-11-02 12:53:36.000000000 -0600
+++ /usr/share/common-lisp/source/cl-typesetting/graph.lisp	2006-06-20 23:44:03.000000000 -0500
@@ -176,7 +176,8 @@
 	   (with-open-file (s dot-file :direction :output :if-exists :supersede)
 	     (gen-graph-dot-data graph s))
 #+lispworks (sys:call-system (format nil "~a~{ ~s~} ~s -o ~s" *dot-command* *dot-command-args* dot-file result-file) :wait t)
-#+(or cmu sbcl) (ext:run-program *dot-command* `(,@*dot-command-args* ,dot-file "-o" ,result-file) :wait t)
+	   #+cmu (ext:run-program *dot-command* `(,@*dot-command-args* ,dot-file "-o" ,result-file) :wait t)
+	   #+sbcl (sb-ext:run-program *dot-command* `(,@*dot-command-args* ,dot-file "-o" ,result-file) :wait t)
 	   (with-open-file (s result-file :direction :input)
 	     (iter (for line = (read-line s nil))
 		   (while line)