From c96dae3c401cf665803c04a8f6610828eb9df88e Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sat, 3 Sep 2011 20:29:54 -0400
Subject: [PATCH] found bug in wrap-to-count; need to push bug fix upstream
 soon

---
 private/command.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/private/command.rkt b/private/command.rkt
index 93716b3..e5e2392 100644
--- a/private/command.rkt
+++ b/private/command.rkt
@@ -125,7 +125,7 @@
          (cons (substring str 0 x) (wrap-to-count (substring str y) n))))] 
     [else
      ;; iterate backwards from char n looking for a good break
-     (let loop ([k n])
+     (let loop ([k (sub1 n)])
        (cond
          [(= k 0) (error wrap-to-count "could not break string")]
          [(char=? (string-ref str k) #\space)