1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl
index b7f1005..2ad1496 100644
--- a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl
@@ -165,7 +165,7 @@ sub benchmarkUsedamage {
    my ($label, $usedamage) = @_;
 
    # Get usedamage value
-   my $previousValue = $zinc->cget(-usedamage);
+   my $previousValue = $zinc->cget('-usedamage');
 
    # Force redisplay
    $zinc->tset($circle, 1, 0, 0, 1, 0, 0);
@@ -194,4 +194,4 @@ sub benchmarkUsedamage {
    # Restore usedamage
    $zinc->configure(-usedamage => $previousValue);
    $zinc->itemconfigure($circle, -sensitive => 1);
-}
-\ No newline at end of file
+}