From 6c58cde2aa1fdbe33105bd171fd5392fdcc1a9e0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 Feb 2013 15:22:29 +0100
Subject: [PATCH] repair for snip% change

Fixes a problem with 755377ca82.
---
 collects/racket/snip/private/snip.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/racket/snip/private/snip.rkt b/collects/racket/snip/private/snip.rkt
index 7ab73b5775..863ac15aca 100644
--- a/collects/racket/snip/private/snip.rkt
+++ b/collects/racket/snip/private/snip.rkt
@@ -711,7 +711,7 @@
                             [maybe-box? [descent #f]] [maybe-box? [space #f]]
                             [maybe-box? [lspace #f]] [maybe-box? [rspace #f]])
     (let* ([old-w str-metric]
-           [changed? (old-w . < . 0)])
+           [changed? (not old-w)])
       (super get-extent dc ex ey wi h descent space lspace rspace)
 
       (when changed?