diff --git a/kenzo-test.asd b/kenzo-test.asd
index e1a9f1b..f5f8e88 100644
--- a/kenzo-test.asd
+++ b/kenzo-test.asd
@@ -9,7 +9,6 @@
   :pathname #P"test/"
   :components ((:file "package")
 	       (:file "common")
-	       #|
 	       (:file "combinations-test")
 	       (:file "various-test")
 	       (:file "chain-complexes-test")
@@ -25,6 +24,5 @@
 	       (:file "bar-test")
 	       (:file "cartesian-products-test")
 	       (:file "cones-test")
-	       (:file "cl-space-efhm-test")
-	       |#
+	       ;;(:file "cl-space-efhm-test")
 	       (:file "tensor-products-test")))
diff --git a/src/delta.lisp b/src/delta.lisp
index fed9f6b..f15857d 100644
--- a/src/delta.lisp
+++ b/src/delta.lisp
@@ -6,6 +6,10 @@
 
 (PROVIDE "delta")
 
+
+(DEFGENERIC PRINT-KEYCONS (car cdr stream))
+
+
 (DEFMETHOD PRINT-KEYCONS ((car (eql :delt)) cdr stream)
   (format stream "~A" (hyphenize-list (dlop-int-ext cdr)))
   (cons car cdr))