diff --git a/ChangeLog b/ChangeLog
index 2b1cf2952..f7b9a18c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-04 Paolo Nenzi
+ * src/frontend/parser/lexical.c: 
+   53: Fixed the problem of segmentation fault when redirecting output putting spaces
+       around "<" or ">". A. Roldan - Espice
+
 2008-11-02 Lionel Sainte Cluque
  * src/tclspice.c : tcl_vfprintf corrects the stou bug
  * README.tcl : Creation
diff --git a/src/frontend/parser/lexical.c b/src/frontend/parser/lexical.c
index 59cefb3ea..182e6f2d0 100644
--- a/src/frontend/parser/lexical.c
+++ b/src/frontend/parser/lexical.c
@@ -298,7 +298,8 @@ gotchar:
 	    } goto ldefault; /* else continue with default ... */
 	case '<':
 	case '>':  /* va: <=, >= are unbreakable words */
-	    if (i==0 && *string=='=') {
+       if(string)
+	    if (i==0 && (*string=='=')) {
 	        buf[i++]=c;
 	        break;
 	    } goto ldefault; /* else continue with default ... */