diff --git a/Export/DEF.hs b/Export/DEF.hs
--- a/Export/DEF.hs
+++ b/Export/DEF.hs
@@ -44,13 +44,15 @@
 
 
 showPos :: Position -> ShowS
-showPos (Length x, Length y) = unwordS
+showPos (x,y) = unwordS
     [ "("
-    , shows x
-    , shows y
+    , shows x'
+    , shows y'
     , ")"
     ]
-  -- XXX Numbers should be scaled.
+  where
+    x' = round (value x / 1e-9) :: Integer
+    y' = round (value y / 1e-9) :: Integer
 
 showOri :: IsString str => Orientation -> str
 showOri (flipped,dir) = fromString $
diff --git a/Wired.cabal b/Wired.cabal
--- a/Wired.cabal
+++ b/Wired.cabal
@@ -1,5 +1,5 @@
 name:      Wired
-version:   0.2
+version:   0.2.1
 homepage:  http://www.cs.chalmers.se/~emax/wired/
 synopsis:  Wire-aware hardware description