From 95db69f27b003d548813280a19d1b290332bf2ef Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 7 Sep 2018 12:04:32 +0000
Subject: Added test for [631b4c45df].

---
 tests/proc.test | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/proc.test b/tests/proc.test
index f70fcbd..8b25b0a 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -391,6 +391,14 @@ test proc-7.4 {Proc struct outlives its interp: Bug 3532959} {
     interp delete slave
     unset lambda
 } {}
+
+test proc-7.5 {[631b4c45df] Crash in argument processing} {
+    binary scan A c val
+    proc foo [list  [list from $val]] {}
+    rename foo {}
+    unset -nocomplain val
+} {}
+
 
 # cleanup
 catch {rename p ""}
-- 
cgit v0.12