Fixed bug in basic::subs_one_level.

diff --git a/ginac/basic.cpp b/ginac/basic.cpp
index c37ed3e3ded529a816ab82189da3f6fd42deeafa..b545d7aa13e53eeb7ecc72a0cdefd9c4502861c5 100644 (file)
--- a/ginac/basic.cpp
+++ b/ginac/basic.cpp
@@ -617,9 +617,11 @@ ex basic::subs_one_level(const exmap & m, unsigned options) const
        exmap::const_iterator it;
 
        if (options & subs_options::no_pattern) {
        exmap::const_iterator it;
 
        if (options & subs_options::no_pattern) {

-               it = m.find(*this);
+               ex thisex = *this;
+               it = m.find(thisex);

                if (it != m.end())
                        return it->second;
                if (it != m.end())
                        return it->second;

+               return thisex;

        } else {
                for (it = m.begin(); it != m.end(); ++it) {
                        lst repl_lst;
        } else {
                for (it = m.begin(); it != m.end(); ++it) {
                        lst repl_lst;