diff --git a/lib/commit.tcl b/lib/commit.tcl
index 23d67d4..11379f8 100644
--- a/lib/commit.tcl
+++ b/lib/commit.tcl
@@ -141,20 +141,6 @@
 	}
 }
 
-proc strip_msg {msg} {
-	set cmd [concat [list | ] [_git_cmd stripspace] --strip-comments]
-	_trace_exec $cmd
-	set fd [open $cmd r+]
-	fconfigure $fd -translation binary -encoding utf-8
-
-	puts -nonewline $fd $msg
-	close $fd w
-	set result [read $fd]
-	close $fd
-
-	return $result
-}
-
 proc commit_tree {} {
 	global HEAD commit_type file_states ui_comm repo_config
 	global pch_error
@@ -221,8 +207,8 @@
 
 	# -- A message is required.
 	#
-	set msg [strip_msg [$ui_comm get 1.0 end]]
-
+	set msg [string trim [$ui_comm get 1.0 end]]
+	regsub -all -line {[ \t\r]+$} $msg {} msg
 	if {$msg eq {}} {
 		error_popup [mc "Please supply a commit message.