diff --git a/doc/rdsrc.pl b/doc/rdsrc.pl
index 129bb085..1ca71681 100644
--- a/doc/rdsrc.pl
+++ b/doc/rdsrc.pl
@@ -237,7 +237,7 @@ sub get_para($_) {
     $para = undef;
   }
   if (/\S/) {
-    s/\\#.*$//; # strip comments
+    s/(^|[^\\])\\#.*$/\1/; # strip comments
     $para .= " " . $_;
   }
 }