--- a/URI.st	Wed Mar 21 11:43:46 2007 +0100
+++ b/URI.st	Mon Mar 26 14:28:19 2007 +0200
@@ -193,6 +193,10 @@
 
     |schemes|
 
+    scheme notNil ifTrue:[
+        ^ scheme
+    ].
+
     schemes := self class schemes.
     ^ schemes size ~~ 0 ifTrue:[
         schemes at:1
@@ -202,10 +206,7 @@
 !
 
 scheme:aString
-    "set the scheme. This is a noop here and may be 
-     defined by subclasses"
-
-    ^ self
+    scheme := aString
 ! !
 
 !URI methodsFor:'comparing'!
@@ -296,5 +297,5 @@
 !URI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.13 2006-10-11 07:29:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.14 2007-03-26 12:28:19 stefan Exp $'
 ! !