diff --git a/generic/reduction.h b/generic/reduction.h
index cc5376e..b4371d8 100644
--- a/generic/reduction.h
+++ b/generic/reduction.h
@@ -148,8 +148,9 @@ int CMD(
 
 		default:
 			
-			RESULTPRINTF(("Undefined function for datatype %s", NumArray_typename[info->type]));
-            return TCL_ERROR;
+		    RESULTPRINTF(("Undefined function for datatype %s", NumArray_typename[info->type]));
+		    ckfree(resultdims);
+		    return TCL_ERROR;
 	}
 
 	ckfree(resultdims);