diff -ru rmagic-2.21/wadg/rm/Report/QuickSummary.pm.orig rmagic-2.21/wadg/rm/Report/QuickSummary.pm
--- rmagic-2.21/wadg/rm/Report/QuickSummary.pm.orig	2003-04-02 04:21:00.000000000 -0500
+++ rmagic-2.21/wadg/rm/Report/QuickSummary.pm	2010-09-18 17:43:12.000000000 -0400
@@ -45,8 +45,10 @@
 	$self->_initialize( %parms ) or return;
 
 	# Setup caps rows and remove any double '_'
-	$self->{_CONFIG}{$self->{token}}{Rows} =~ s/([A-Z0-9])/$1_/g;
-	$self->{_CONFIG}{$self->{token}}{Rows} =~ s/__/_/g;
+	my $rows = $self->{_CONFIG}{$self->{token}}{Rows};
+	$rows =~ s/([A-Z0-9])/$1_/g;
+	$rows =~ s/__/_/g;
+	$self->{_CONFIG}{$self->{token}}{Rows} = $rows;
 	
 	
 	return $self;