diff --git a/compiler/frontend/src/org/jetbrains/jet/lang/cfg/PseudocodeTraverser.kt b/compiler/frontend/src/org/jetbrains/jet/lang/cfg/PseudocodeTraverser.kt
index d6a52edda43..f2de664065c 100644
--- a/compiler/frontend/src/org/jetbrains/jet/lang/cfg/PseudocodeTraverser.kt
+++ b/compiler/frontend/src/org/jetbrains/jet/lang/cfg/PseudocodeTraverser.kt
@@ -169,7 +169,7 @@ data class Edges<T>(val incoming: T, val outgoing: T)
 
 
 // returns false when interrupted by handler
-fun traverseFollowingInstructions(
+public fun traverseFollowingInstructions(
         rootInstruction: Instruction,
         visited: MutableSet<Instruction>,
         order: TraversalOrder,