diff --git a/DOMTEST b/DOMTEST
index ce72930..7c53197 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -727,7 +727,6 @@ not implemented
 692/808 importNode16.xml
 693/808 importNode17.xml
 694/808 internalSubset01.xml
-TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
 695/808 isSupported01.xml
 696/808 isSupported02.xml
 697/808 isSupported04.xml
@@ -859,4 +858,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-8/763 tests failed; 45 tests were skipped
\ No newline at end of file
+7/763 tests failed; 45 tests were skipped
\ No newline at end of file
diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp
index 3afd97d..cabe6e2 100644
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@@ -1150,7 +1150,11 @@
 
 (defmethod dom:internal-subset ((node document-type))
   ;; FIXME: encoding ist falsch, anderen sink nehmen!
-  (if (slot-boundp node 'internal-subset)
+  (if (and (slot-boundp node 'internal-subset)
+	   ;; die damen und herren von der test suite sind wohl der meinung,
+	   ;; dass ein leeres internal subset nicht vorhanden ist und
+	   ;; wir daher nil liefern sollen.  bittesehr!
+	   (internal-subset node))
       (with-output-to-string (stream)
 	(let ((sink (cxml:make-character-stream-sink stream)))
 	  (dolist (def (internal-subset node))