From 513ac7611ddcc11aea52ee22d3250b6485a80c1b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 23 Aug 2006 17:00:52 +0000
Subject: [PATCH] fixed PR 8233

svn: r4123
---
 collects/slideshow/core.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/slideshow/core.ss b/collects/slideshow/core.ss
index 90fda16be9..c46a8b3aa1 100644
--- a/collects/slideshow/core.ss
+++ b/collects/slideshow/core.ss
@@ -184,7 +184,7 @@
 					   (cond
 					    [(null? l) (list (reverse current-line))]
 					    [(pict? (car l))
-					     (loop (cdr l) (cons (car l) (current-line)))]
+					     (loop (cdr l) (cons (car l) current-line))]
 					    [else (let ([m (regexp-match #rx"^(.*?)(?:\n|\r\n|\r)[ \t]*(.*)$" (car l))])
 						    (if m
 							(cons