Index: /lang/perl/Archer/lib/Archer/Shell.pm
===================================================================
--- /lang/perl/Archer/lib/Archer/Shell.pm (revision 3689)
+++ /lang/perl/Archer/lib/Archer/Shell.pm (revision 3690)
@@ -22,5 +22,5 @@
     $term->stifle_history($HISTSIZE);
     if (-f $HISTFILE) {
-        $term->ReadHistory($HISTFILE) or $self->log('warn' => "cannot read history file: $!");
+        $term->ReadHistory($HISTFILE) or $self->{context}->log('warn' => "cannot read history file: $!");
     }
 
@@ -32,5 +32,5 @@
     print "\n";
 
-    $term->WriteHistory($HISTFILE) or $self->log('warn' => "perlsh: cannot write history file: $!");
+    $term->WriteHistory($HISTFILE) or $self->{context}->log('warn' => "perlsh: cannot write history file: $!");
 }