--- a/URI.st	Mon Jul 14 14:11:54 2003 +0200
+++ b/URI.st	Mon Jul 14 15:03:51 2003 +0200
@@ -206,6 +206,13 @@
     scheme size ~~ 0 ifTrue:[
         aStream nextPutAll:scheme; nextPut:$:
     ].
+!
+
+publicPrintOn:aStream
+    "print, but omit password information.
+     Subclasses which know about secret information have to redefine this"
+
+    ^ self printOn:aStream
 ! !
 
 !URI methodsFor:'subclass responsibility'!
@@ -249,8 +256,16 @@
     ^ self subclassResponsibility
 ! !
 
+!URI methodsFor:'testing'!
+
+isRemote
+    "return true, if this is a remote URI"
+
+    ^ false
+! !
+
 !URI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.7 2003-07-13 22:40:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.8 2003-07-14 13:03:41 stefan Exp $'
 ! !