diff --git a/private/print_error.m b/private/print_error.m
index c4c071dc2b0933bb0d3b8e3fc6a2a67bc3968f38..371b544bb2c6a4dde0ac52d1a3b12bf66611d201 100644
--- a/private/print_error.m
+++ b/private/print_error.m
@@ -14,6 +14,9 @@ function print_error(programme,z,x,y,in,mflag,action)
 % $Revision$
 %
 % $Log$
+% Revision 4.8  2009/03/24 08:36:04  marwan
+% copyright address updated
+%
 % Revision 4.7  2004/11/10 07:04:29  marwan
 % initial import
 %
@@ -25,6 +28,10 @@ function print_error(programme,z,x,y,in,mflag,action)
 
 global errcode props
 
+% get CRP Toolbox version
+tb_path = fileparts(which('crp'));
+v = ver(tb_path);
+
   if ~isempty(findobj('Tag','TMWWaitbar')), delete(findobj('Tag','TMWWaitbar')), end
   if ischar(in), in2=in; else, in2=[]; end
   in=whos('in');
@@ -39,6 +46,7 @@ global errcode props
     err=fprintf(fid,'%s\n',repmat('-',50,1));
     err=fprintf(fid,'%s\n',datestr(now,0));
     err=fprintf(fid,'%s\n',['Matlab ',char(version),' on ',computer]);
+    err=fprintf(fid,'%s\n',[v.Name,' ',v.Version,' (',v.Date,')']);
     err=fprintf(fid,'%s\n',repmat('-',50,1));
     err=fprintf(fid,'%s\n',x);
     err=fprintf(fid,'%s\n',y);