1 files changed, 7 insertions, 6 deletions
diff --git a/slof/fs/find-hash.fs b/slof/fs/find-hash.fs
index 2d6facf..3769673 100644
--- a/slof/fs/find-hash.fs
+++ b/slof/fs/find-hash.fs
@@ -1,5 +1,5 @@
 \ *****************************************************************************
-\ * Copyright (c) 2004, 2007 IBM Corporation
+\ * Copyright (c) 2004, 2008 IBM Corporation
 \ * All rights reserved.
 \ * This program and the accompanying materials
 \ * are made available under the terms of the BSD License
@@ -21,11 +21,12 @@ clean-hash
 ;
 
 : hash-find ( str len head -- 0 | link )
-  >r 2dup 2dup hash
-  dup >r @ dup IF link>name name>string string=ci ELSE nip nip THEN
-  IF 2drop r> @ r> drop exit THEN
-  r> r> swap >r ((find))
-  dup IF dup r> ! ELSE r> drop THEN ;
+   >r 2dup 2dup hash
+   dup >r @ dup IF link>name name>string string=ci ELSE nip nip THEN
+   IF 2drop r> @ r> drop exit THEN
+   r> r> swap >r ((find))
+   dup IF dup r> ! ELSE r> drop THEN
+;
 
 : hash-reveal  hash off ;