--- woman.el.orig	2012-10-14 10:41:57.000000000 +1100
+++ woman.el	2012-10-14 10:56:45.000000000 +1100
@@ -3627,16 +3627,17 @@
 	(goto-char (match-end 0))
 	;; Check for scale factor:
 	(if
-	    (cond
-	     ((looking-at "\\s ") nil)	; stay put!
-	     ((looking-at "[mnuv]"))	; ignore for now
-	     ((looking-at "i") (setq n (* n 10))) ; inch
-	     ((looking-at "c") (setq n (* n 3.9))) ; cm
-	     ((looking-at "P") (setq n (* n 1.7))) ; Pica
-	     ((looking-at "p") (setq n (* n 0.14))) ; point
-	     ;; NB: May be immediately followed by + or -, etc.,
-	     ;; in which case do nothing and return nil.
-	     )
+	    (let ((case-fold-search nil))
+	      (cond
+	       ((looking-at "\\s ") nil)	; stay put!
+	       ((looking-at "[mnuv]"))	; ignore for now
+	       ((looking-at "i") (setq n (* n 10))) ; inch
+	       ((looking-at "c") (setq n (* n 3.9))) ; cm
+	       ((looking-at "P") (setq n (* n 1.7))) ; Pica
+	       ((looking-at "p") (setq n (* n 0.14))) ; point
+	       ;; NB: May be immediately followed by + or -, etc.,
+	       ;; in which case do nothing and return nil.
+	       ))
 	    (goto-char (match-end 0)))
 	(if (numberp n) (round n) n)))))