diff --git a/tests/heal/drop_small_solids/end b/tests/heal/drop_small_solids/end
index 0ffa046a00..49bd515d35 100644
--- a/tests/heal/drop_small_solids/end
+++ b/tests/heal/drop_small_solids/end
@@ -9,9 +9,10 @@ proc parseprops a {
     ]+([-0-9.+eE]+)[\t ]+([-0-9.+eE]+)[\t ]+([-0-9.+eE]+)} $a]
 }
 
-proc cmpprops {cmd a b} {
-  set aa [parseprops [$cmd $a]]
-  set bb [parseprops [$cmd $b]]
+proc cmpprops {cmd shape1 shape2} {
+  upvar $shape1 a $shape2 b
+  set aa [parseprops [$cmd a]]
+  set bb [parseprops [$cmd b]]
   for {set i 1} {$i < [llength $aa]} {incr i} {
     if {[expr abs([lindex $aa $i] - [lindex $bb $i])] > 1e-8} {return 0}
   }