diff --git a/libinterp/corefcn/call-stack.cc b/libinterp/corefcn/call-stack.cc --- a/libinterp/corefcn/call-stack.cc +++ b/libinterp/corefcn/call-stack.cc @@ -680,8 +680,16 @@ OCTAVE_NAMESPACE_BEGIN call_stack::backtrace_info (octave_idx_type& curr_user_frame, bool print_subfn) const { - std::list> frames - = backtrace_frames (curr_user_frame); + curr_user_frame = 0; + + std::list> frames; + + // Push several copies of the top frame so there is more than just + // one frame in the list. + frames.push_back (m_cs[0]); + frames.push_back (m_cs[0]); + frames.push_back (m_cs[0]); + frames.push_back (m_cs[0]); std::list retval;