diff --git a/tests/bugs/caf/bug27667 b/tests/bugs/caf/bug27667
index 49ff111e46..9aa2151b95 100644
--- a/tests/bugs/caf/bug27667
+++ b/tests/bugs/caf/bug27667
@@ -9,4 +9,6 @@ puts ""
 # OCAF binary persistence hangs on reading truncated CBF file
 #######################################################################################
 
-catch { Open [locate_data_file bug27667_broken_cbf.cbf] D }
+set filename [locate_data_file bug27667_broken_cbf.cbf]
+
+catch { Open $filename D }