--- a/PositionableStream.st	Fri Sep 07 18:21:19 2001 +0200
+++ b/PositionableStream.st	Fri Sep 07 18:30:27 2001 +0200
@@ -743,6 +743,10 @@
 
     | builder parser|
 
+    (XMLSourceNodeBuilder isNil or:[XMLParser isNil]) ifTrue:[
+        self error:'please fileIn the XML package(s)'
+    ].
+
     builder := XMLSourceNodeBuilder new.
     parser := XMLParser on:self.
     parser builder:builder.
@@ -1051,6 +1055,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.99 2001-08-02 09:52:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.100 2001-09-07 16:30:17 cg Exp $'
 ! !
 PositionableStream initialize!