From 06a3d84e1885b72f49ab2b01cf33195893507007 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 30 Apr 2005 15:55:21 +0000
Subject: [PATCH] .

original commit: 5b862c32b245c151fe69d1b10dae614dd58aacc9
---
 collects/mred/private/snipfile.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/private/snipfile.ss b/collects/mred/private/snipfile.ss
index 79f5363a..9bb56198 100644
--- a/collects/mred/private/snipfile.ss
+++ b/collects/mred/private/snipfile.ss
@@ -300,7 +300,7 @@
 	      [(special . is-a? . wx:snip%)
 	       (force-text)
 	       (send text insert special pos)
-	       (set! pos (send special get-count))]
+	       (set! pos (+ pos (send special get-count)))]
 	      [else
 	       (display special port)]))
 	   #t)