diff --git a/lib/error.tcl b/lib/error.tcl
index 08a24622c7..8c27678e3a 100644
--- a/lib/error.tcl
+++ b/lib/error.tcl
@@ -47,7 +47,7 @@ proc info_popup {msg} {
 		append title " ([reponame])"
 	}
 	tk_messageBox \
-		-parent $parent \
+		-parent [_error_parent] \
 		-icon info \
 		-type ok \
 		-title $title \