From 3f1f06c5d12b24c4061e5123acabf72348ff45a2 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Wed, 16 Jan 2008 13:39:58 +0000
Subject: 20080116-1340

---
 appl/cmd/stackv.b | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'appl/cmd/stackv.b')

diff --git a/appl/cmd/stackv.b b/appl/cmd/stackv.b
index 173f8b30..4688f804 100644
--- a/appl/cmd/stackv.b
+++ b/appl/cmd/stackv.b
@@ -360,6 +360,8 @@ plist(exp: ref Exp, v: string, w: int, depth: int)
 	while(w && v != "nil"){
 		exps := exp.expand();
 		h := getname(exps, "hd");
+		if(h == nil)
+			break;
 		(hv, vw) := h.val();
 		if(pref(v) == 0)
 			return;
-- 
cgit v1.2.3