--- a/PositionableStream.st	Thu Oct 11 17:22:54 2001 +0200
+++ b/PositionableStream.st	Fri Oct 12 15:01:47 2001 +0200
@@ -743,16 +743,19 @@
 
     | builder parser|
 
-    (XMLSourceNodeBuilder isNil or:[XMLParser isNil]) ifTrue:[
-        self error:'please fileIn the XML package(s)'
+    (XML isNil or:[XML::SourceNodeBuilder isNil or:[XML::XMLParser isNil]]) ifTrue:[
+        Smalltalk loadPackage:'stx:goodies/xml-vw'.
+        (XML isNil or:[XML::SourceNodeBuilder isNil or:[XML::XMLParser isNil]]) ifTrue:[
+            self error:'Could not load XML package(s) from ''stx:goodies/xml-vw'''.
+        ]
     ].
 
-    builder := XMLSourceNodeBuilder new.
-    parser := XMLParser on:self.
+    builder := XML::SourceNodeBuilder new.
+    parser := XML::XMLParser on:self.
     parser builder:builder.
     parser validate:false.
     parser scanDocument.
-    self halt.
+    "/ self halt.
 ! !
 
 !PositionableStream methodsFor:'positioning'!
@@ -1055,6 +1058,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.100 2001-09-07 16:30:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.101 2001-10-12 13:01:47 cg Exp $'
 ! !
 PositionableStream initialize!