diff --git a/pcl/pclload.lisp b/pcl/pclload.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..648e26bbb012dafa5c8a03c2ee096a88c6b90aed
--- /dev/null
+++ b/pcl/pclload.lisp
@@ -0,0 +1,9 @@
+(in-package "PCL")
+(import 'kernel:funcallable-instance-p)
+(load "pcl:defsys")
+(load-pcl)
+
+;; hack, hack...
+(ignore-errors
+ (with-output-to-string (*standard-output*)
+   (describe #'print-object)))