--- a/PrinterContext.st	Mon Oct 20 16:44:15 2008 +0200
+++ b/PrinterContext.st	Mon Oct 20 16:52:59 2008 +0200
@@ -827,8 +827,10 @@
     |left top right bottom pixelsPerInchX pixelsPerInchY horzRes vertRes inset rectangle|
 
     pixelsPerInchX := self pixelsPerInchOfScreenWidth.
-pixelsPerInchX == 0 ifTrue:[self halt].
+    pixelsPerInchX == 0 ifTrue:[self halt:'invalid definitions for screen resolution'].
     pixelsPerInchY := self pixelsPerInchOfScreenHeight.
+    pixelsPerInchY == 0 ifTrue:[self halt:'invalid definitions for screen resolution'].
+
     aRectangle isNil ifTrue:[
         horzRes := self printerWidthArea.
         vertRes := self printerHeightArea.
@@ -945,5 +947,5 @@
 !PrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.17 2008-05-13 10:58:59 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.18 2008-10-20 14:52:59 cg Exp $'
 ! !