Index: generic/nsfObj.c
===================================================================
diff -u -rb089be700bb58579a48e77619512a47eb3c5562d -r16324e94fee054ff57d403e5b51cf96117317ea0
--- generic/nsfObj.c	(.../nsfObj.c)	(revision b089be700bb58579a48e77619512a47eb3c5562d)
+++ generic/nsfObj.c	(.../nsfObj.c)	(revision 16324e94fee054ff57d403e5b51cf96117317ea0)
@@ -763,6 +763,7 @@
 
 int
 NsfFilterregGet(Tcl_Interp *UNUSED(interp), Tcl_Obj *obj, Tcl_Obj **filterObj, Tcl_Obj **guardObj) {
+  int result;
 
   nonnull_assert(obj != NULL);
   nonnull_assert(filterObj != NULL);
@@ -772,10 +773,12 @@
     Filterreg *filterregPtr = obj->internalRep.twoPtrValue.ptr1;
     *filterObj = filterregPtr->filterObj;
     *guardObj = filterregPtr->guardObj;
-    return TCL_OK;
+    result = TCL_OK;
+  } else {
+    result = TCL_ERROR;
   }
-
-  return TCL_ERROR;
+  
+  return result;
 }
 /*
  * Filterreg type end