From d6d284af63e89085e704e27c2f8c893c0ebc2e1a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 29 Sep 2009 05:59:06 +0000
Subject: 	* interp/i-funsel.boot (matchMmSig): Fix thinko from revision
 1297.

---
 src/interp/i-syscmd.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-syscmd.boot')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 6ba35132..7db77377 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1830,7 +1830,7 @@ undoFromFile(n) ==
       x:= first p1
       for p2 in rest p1 repeat
         $InteractiveFrame:= putHist(x,first p2,rest p2,$InteractiveFrame)
-  val:= ( p:= ASSQ('%,vec) ) and ( p1:= ASSQ('value,rest p) ) and CDR p1
+  val:= ( p:= ASSQ('%,vec) ) and ( p1:= ASSQ('value,rest p) ) and rest p1
   $InteractiveFrame:= putHist('%,'value,val,$InteractiveFrame)
   updateHist()
 
-- 
cgit v1.2.3