diff --git a/C4/TTParser.pm b/C4/TTParser.pm
index 2ea31a64e2..e088124684 100755
--- a/C4/TTParser.pm
+++ b/C4/TTParser.pm
@@ -22,6 +22,7 @@ sub next_token{
 
 #unshift token back on @tokens
 sub unshift_token{
+    my $self = shift;
     unshift @tokens, shift;
 }