--- a/URI.st	Tue Oct 10 23:04:49 2006 +0200
+++ b/URI.st	Wed Oct 11 09:29:55 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 Object subclass:#URI
@@ -39,7 +38,7 @@
 
 fromString:aString
     "create an URI from a given String"
-
+        
     |i scheme rest|
 
     i := aString indexOf:$:.
@@ -56,13 +55,12 @@
     ].
     ^ (self classForScheme:scheme) scheme:scheme fromString:rest
 
-
-
-"
-    self fromString:''
-    self fromString:'file:~'
-    self fromString:'ftp://exept.exept.de/~stefan/bla'
-"
+    "
+     self fromString:''
+     self fromString:'file:~'
+     self fromString:'ftp://exept.exept.de/~stefan/bla'
+     self fromString:'cg@exept.exept.de:/cvs/bosch'
+    "
 !
 
 fromString:aString onError:exceptionBlock
@@ -75,12 +73,11 @@
     ] do:[
         uri := self fromString:aString
     ].
-
     ^ uri
 
-"
-    self fromString:'' onError:nil    
-"
+    "
+     self fromString:'' onError:nil    
+    "
 ! !
 
 !URI class methodsFor:'accessing'!
@@ -299,5 +296,5 @@
 !URI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.12 2005-02-01 12:41:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.13 2006-10-11 07:29:55 cg Exp $'
 ! !