0.6.10.13:

[sbcl.git] / src / code / describe.lisp

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 09e84c0..8a97208 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -86,7 +86,7 @@
        (format s "~:_(~@<~S ~:_~S~:>)" k v)))))
 
 (defmethod describe-object ((condition condition) s)
-  (sb-conditions::describe-condition condition s))
+  (sb-kernel:describe-condition condition s))
 \f
 ;;;; DESCRIBE-OBJECT methods for symbols and functions, including all
 ;;;; sorts of messy stuff about documentation, type information,
@@ -172,7 +172,7 @@
              (ecase (sb-c::debug-source-from source)
                (:file
                 (format s "~@:_~A~@:_  Created: " (namestring name))
-                (sb-int:format-universal-time t (sb-c::debug-source-created
+                (sb-int:format-universal-time s (sb-c::debug-source-created
                                                  source)))
                (:lisp (format s "~@:_~S" name))))))))))