--- a/HierarchicalURI.st	Mon Jul 14 15:03:51 2003 +0200
+++ b/HierarchicalURI.st	Mon Jul 14 16:28:35 2003 +0200
@@ -470,14 +470,17 @@
 
     password := self password.
     password size ~~ 0 ifTrue:[
+        super printOn:aStream.
         aStream 
                 nextPutAll:'//';
                 nextPutAll:self user;
                 nextPut:$@;
                 nextPutAll:self host.
+        self printPathOn:aStream escape:true.
+    ] ifFalse:[
+        "no password, use normal printing"
+        self printOn:aStream
     ].
-    
-    self printPathOn:aStream escape:true.
 ! !
 
 !HierarchicalURI methodsFor:'resolution'!
@@ -525,5 +528,5 @@
 !HierarchicalURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HierarchicalURI.st,v 1.7 2003-07-14 13:03:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HierarchicalURI.st,v 1.8 2003-07-14 14:28:35 stefan Exp $'
 ! !