diff --git a/tcl/subcmd.tcl.in b/tcl/subcmd.tcl.in
index 0bd34e79..c16d5e04 100644
--- a/tcl/subcmd.tcl.in
+++ b/tcl/subcmd.tcl.in
@@ -1642,7 +1642,7 @@ proc cmdModuleUnload {context match auto force onlyureq onlyndep args} {
                         loaded $unmod] failed"
                      ##nagelfar ignore Found constant
                      if {[getState force] || $force} {
-                        reportWarning $errMsg 1
+                        reportWarning $errMsg
                      } else {
                         knerror $errMsg
                      }