--- a/URI.st	Wed Feb 08 18:41:08 2017 +0100
+++ b/URI.st	Wed Feb 08 19:43:06 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#URI
 	instanceVariableNames:'scheme'
 	classVariableNames:''
@@ -66,18 +68,13 @@
 fromString:aString onError:exceptionBlock
     "create an URI from a given String"
 
-    |uri|
-
-    Error handle:[:ex| 
-        exceptionBlock value.
-    ] do:[
-        uri := self fromString:aString
-    ].
-    ^ uri
+    ^ [self fromString:aString] on:Error do:[exceptionBlock value]
 
     "
      self fromString:'' onError:nil    
     "
+
+    "Modified (format): / 08-02-2017 / 19:16:55 / stefan"
 ! !
 
 !URI class methodsFor:'accessing'!
@@ -288,6 +285,6 @@
 !URI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/URI.st,v 1.18 2014-02-12 14:40:46 cg Exp $'
+    ^ '$Header$'
 ! !