--- a/ObjectView.st	Fri Oct 02 02:11:31 2009 +0200
+++ b/ObjectView.st	Fri Oct 02 10:43:14 2009 +0200
@@ -1931,12 +1931,12 @@
 !
 
 setInitialDocumentFormat
-    (Smalltalk language == #english) ifTrue:[
-	documentFormat := 'letter'.
-	scaleMetric := #inch
+    (UserPreferences current languageTerritory == #us) ifTrue:[
+        documentFormat := 'letter'.
+        scaleMetric := #inch
     ] ifFalse:[
-	documentFormat := 'a4'.
-	scaleMetric := #mm
+        documentFormat := 'a4'.
+        scaleMetric := #mm
     ].
 ! !
 
@@ -3511,5 +3511,9 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.132 2009-09-15 18:21:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.133 2009-10-02 08:43:14 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.133 2009-10-02 08:43:14 cg Exp $'
 ! !