--- a/TabulatorSpecification.st	Fri Apr 01 22:38:22 2016 +0200
+++ b/TabulatorSpecification.st	Sat Apr 02 16:29:33 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Model subclass:#TabulatorSpecification
 	instanceVariableNames:'tabUnit unitReference tabPositions tabTypes'
 	classVariableNames:''
@@ -448,7 +450,7 @@
     "return the number of device pixels one unit of my tabs
      takes on aGC"
 
-    |device mm|
+    |gcDevice mm|
 
     tabUnit isNil ifTrue:[
         tabUnit := #col
@@ -459,11 +461,11 @@
     tabUnit == #col ifTrue:[
         ^ aGC font width
     ].
-    device := aGC graphicsDevice.
+    gcDevice := aGC graphicsDevice.
     tabUnit == #inch ifTrue:[
-        ^ device horizontalPixelPerInch
+        ^ gcDevice horizontalPixelPerInch
     ].
-    mm := device horizontalPixelPerMillimeter.
+    mm := gcDevice horizontalPixelPerMillimeter.
     tabUnit == #mm ifTrue:[
         ^ mm
     ].
@@ -545,6 +547,6 @@
 !TabulatorSpecification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.16 2014-01-27 16:06:18 stefan Exp $'
+    ^ '$Header$'
 ! !