--- a/HierarchicalURI.st	Mon Oct 24 15:55:53 2016 +0200
+++ b/HierarchicalURI.st	Fri Oct 28 17:32:12 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 URI subclass:#HierarchicalURI
 	instanceVariableNames:'authority isAbsolute isDirectory pathSegments query fragment'
 	classVariableNames:''
@@ -334,7 +336,6 @@
 !HierarchicalURI methodsFor:'initialization'!
 
 fromString:aString
-
     |i i1 separator|
 
     (aString startsWith:'//') ifTrue:[
@@ -346,7 +347,7 @@
             separator := aString at:i.
             authority := aString copyFrom:3 to:i-1.
         ].
-        (isAbsolute := (aString at:i) == $/).
+        isAbsolute := (aString at:i) == $/.
     ] ifFalse:[
         (isAbsolute := aString startsWith:$/) ifTrue:[
             i := 1.
@@ -478,8 +479,8 @@
      characters"
 
     super printOn:aStream.
-    authority notNil ifTrue: [
-        aStream nextPutAll:'//'.
+    aStream nextPutAll:'//'.
+    authority notNil ifTrue:[
         doEscape ifTrue:[
             self class escape:authority allow:'~$,;:@&=+' on:aStream
         ] ifFalse:[
@@ -598,5 +599,6 @@
 !HierarchicalURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HierarchicalURI.st,v 1.15 2008-05-15 13:32:05 mb Exp $'
+    ^ '$Header$'
 ! !
+